perm filename COMPLR.FIX[CMP,LSP]1 blob sn#208726 filedate 1976-03-31 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	~(DEFPROP OUTINST (LAMBDA (INST) (CONS (Q OUTSTAT) (CDR INST))) MACRO)
C00005 ENDMK
CāŠ—;
~(DEFPROP OUTINST (LAMBDA (INST) (CONS (Q OUTSTAT) (CDR INST))) MACRO)

~(DEFPROP OUTCALL
~ (LAMBDA (NUM FUN)
~  (COND ((ISSUBR FUN) (OUTINST (LIST (QUOTE PUSHJ) (QUOTE P) (LIST (QUOTE SUBR) FUN))))
~        (UPPERFLG (OUTINST (LIST (QUOTE XCT@S) 0 (LIST (QUOTE CALL) NUM (LIST (QUOTE E) FUN)))))
~        (T (OUTINST (LIST (QUOTE CALL) NUM (LIST (QUOTE E) FUN))))))
~EXPR)

~(DEFPROP OUTJCALL
~ (LAMBDA (NUM FUN)
~  (COND ((ISSUBR FUN) (OUTINST (LIST (QUOTE JRST) 0 (LIST (QUOTE SUBR) FUN))))
~        (UPPERFLG (OUTINST (LIST (QUOTE XCT@S) 0 (LIST (QUOTE JCALL) NUM (LIST (QUOTE E) FUN)))))
~        (T (OUTINST (LIST (QUOTE JCALL) NUM (LIST (QUOTE E) FUN))))))
~EXPR)

(DEFPROP OUTCALL
 (LAMBDA (NUM FUN)
  (COND ((ISSUBR FUN) (OUTSTAT (LIST (QUOTE PUSHJ) (QUOTE P) (LIST (QUOTE SUBR) FUN))))
        (UPPERFLG (OUTSTAT (LIST (QUOTE XCT@S) 0 (LIST (QUOTE CALL) NUM (LIST (QUOTE E) FUN)))))
        (T (OUTSTAT (LIST (QUOTE CALL) NUM (LIST (QUOTE E) FUN))))))
EXPR)

(DEFPROP OUTJCALL
 (LAMBDA (NUM FUN)
  (COND ((ISSUBR FUN) (OUTSTAT (LIST (QUOTE JRST) 0 (LIST (QUOTE SUBR) FUN))))
        (UPPERFLG (OUTSTAT (LIST (QUOTE XCT@S) 0 (LIST (QUOTE JCALL) NUM (LIST (QUOTE E) FUN)))))
        (T (OUTSTAT (LIST (QUOTE JCALL) NUM (LIST (QUOTE E) FUN))))))
EXPR)